home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / rot13361.lha / rot13 / rot13.c < prev    next >
C/C++ Source or Header  |  1995-10-28  |  3KB  |  81 lines
  1. /*
  2.     rot13.c 36.1 (28.10.95) by Ralph Seichter
  3.  
  4.     Small 'Rotate-13' tool for OS 2.x or better. Uses 'dos.library'
  5.     functions and standard I/O streams for minimal size (which was
  6.     the goal I had in mind). Call it with "rot13 <foo >bar" or in a
  7.     similar way. Please note that 'rot13' is pure, you can make it
  8.     resident.
  9. */
  10.  
  11. #include <proto/dos.h>
  12. #include <proto/exec.h>
  13.  
  14. LONG __saveds rot13(VOID)
  15. {
  16.     LONG rc = RETURN_FAIL;
  17.     struct DosLibrary *DOSBase;
  18.  
  19.     if (DOSBase = (struct DosLibrary *)OpenLibrary(DOSNAME, 36))
  20.     {
  21.         BPTR in, out;
  22.  
  23.         if ((in = Input()) && (out = Output()))
  24.         {
  25.             LONG ch;
  26.             static UBYTE verTag[] = "$VER: rot13 36.1 " __AMIGADATE__ " by Ralph Seichter";
  27.             static UBYTE table[256] =
  28.             {
  29.                 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
  30.                 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,
  31.                 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
  32.                 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F,
  33.                 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27,
  34.                 0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E, 0x2F,
  35.                 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
  36.                 0x38, 0x39, 0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F,
  37.                 0x40, 'N',  'O',  'P',  'Q',  'R',  'S',  'T',
  38.                 'U',  'V',  'W',  'X',  'Y',  'Z',  'A',  'B',
  39.                 'C',  'D',  'E',  'F',  'G',  'H',  'I',  'J',
  40.                 'K',  'L',  'M',  0x5B, 0x5C, 0x5D, 0x5E, 0x5F,
  41.                 0x60, 'n',  'o',  'p',  'q',  'r',  's',  't',
  42.                 'u',  'v',  'w',  'x',  'y',  'z',  'a',  'b',
  43.                 'c',  'd',  'e',  'f',  'g',  'h',  'i',  'j',
  44.                 'k',  'l',  'm',  0x7B, 0x7C, 0x7D, 0x7E, 0x7F,
  45.                 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
  46.                 0x88, 0x89, 0x8A, 0x8B, 0x8C, 0x8D, 0x8E, 0x8F,
  47.                 0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97,
  48.                 0x98, 0x99, 0x9A, 0x9B, 0x9C, 0x9D, 0x9E, 0x9F,
  49.                 0xA0, 0xA1, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6, 0xA7,
  50.                 0xA8, 0xA9, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0xAF,
  51.                 0xB0, 0xB1, 0xB2, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7,
  52.                 0xB8, 0xB9, 0xBA, 0xBB, 0xBC, 0xBD, 0xBE, 0xBF,
  53.                 0xC0, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xC6, 0xC7,
  54.                 0xC8, 0xC9, 0xCA, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF,
  55.                 0xD0, 0xD1, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6, 0xD7,
  56.                 0xD8, 0xD9, 0xDA, 0xDB, 0xDC, 0xDD, 0xDE, 0xDF,
  57.                 0xE0, 0xE1, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6, 0xE7,
  58.                 0xE8, 0xE9, 0xEA, 0xEB, 0xEC, 0xED, 0xEE, 0xEF,
  59.                 0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,
  60.                 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF
  61.             };
  62.  
  63.             rc = RETURN_OK;
  64.             Flush(in);
  65.             while ((ch = FGetC(in)) >= 0)
  66.             {
  67.                 ch = table[ch];
  68.                 if (FPutC(out, ch) != ch)
  69.                 {
  70.                     rc = RETURN_WARN;
  71.                     break;
  72.                 }
  73.             }
  74.         }
  75.         CloseLibrary((struct Library *)DOSBase);
  76.     }
  77.     return(rc);
  78. }
  79.  
  80. /* EOF */
  81.